home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 101-125 / scopedisk101 / reqlib / reqbase.i < prev    next >
Text File  |  1995-03-19  |  16KB  |  460 lines
  1.  
  2. ; reqlibrary.i © 1988/1989 reserved by Colin Fox and Bruce Dawson */
  3.  
  4.     IFND    REQ_LIBRARY_I
  5.  
  6. REQ_LIBRARY_I    SET    1
  7.  
  8.         INCLUDE    "intuition/intuition.i"
  9.  
  10.         INCLUDE    "libraries/dos.i"
  11.         INCLUDE    "libraries/dosextens.i"
  12.  
  13.         INCLUDE    "exec/memory.i"
  14.         INCLUDE    "exec/initializers.i"
  15.         INCLUDE    "exec/alerts.i"
  16.  
  17. ReqVersion    EQU    1
  18.  
  19.  
  20. PairsSize    EQU    20
  21.  
  22.  STRUCTURE    GadgetBlock.,0        ;a boolean button style text gadget
  23.     STRUCT    gb_Gadget,gg_SIZEOF
  24.     STRUCT    gb_Border,bd_SIZEOF
  25.     STRUCT    gb_Pairs,PairsSize
  26.     STRUCT    gb_Text,it_SIZEOF
  27.     LABEL    gb_SIZEOF
  28.  
  29.  STRUCTURE    StringBlock.,0        ;a string gadget
  30.     STRUCT    sb_Gadget,gg_SIZEOF
  31.     STRUCT    sb_Info,si_SIZEOF
  32.     STRUCT    sb_Border,bd_SIZEOF
  33.     STRUCT    sb_Pairs,PairsSize
  34.     LABEL    sb_SIZEOF
  35.  
  36.  STRUCTURE    PropBlock.,0        ;a prop gadget
  37.     STRUCT    pb_Gadget,gg_SIZEOF
  38.     STRUCT    pb_Info,pi_SIZEOF
  39.     STRUCT    pb_Image,ig_SIZEOF
  40.     LABEL    pb_SIZEOF
  41.  
  42.  STRUCTURE    SliderBlock.,0        ;a slider (two arrows & a prop)
  43.     STRUCT    slb_ArrowUpLt,gg_SIZEOF
  44.     STRUCT    slb_ImageUpLt,ig_SIZEOF
  45.     STRUCT    slb_ArrowDnRt,gg_SIZEOF
  46.     STRUCT    slb_ImageDnRt,ig_SIZEOF
  47.     STRUCT    slb_Prop,pb_SIZEOF    ;this is at the end for REFRESH GLIST purposes
  48.     LABEL    slb_SIZEOF
  49.  
  50.  STRUCTURE    TwoImageBlock,0
  51.     STRUCT    tib_Gadget,gg_SIZEOF
  52.     STRUCT    tib_Image1,ig_SIZEOF
  53.     STRUCT    tib_Image2,ig_SIZEOF
  54.     LABEL    tib_SIZEOF
  55.  
  56. ATTITUDEB    EQU    16    ;Bit# of the attitude bit.
  57.  
  58. HorizSlider    EQU    0<<ATTITUDEB    ;which way the slider stands
  59. VertSlider    EQU    1<<ATTITUDEB    ;This is so that it bypasses all gadget flags.
  60.  
  61.  
  62.  
  63. ;         This structure is use with the TextRequester function.
  64.  
  65.  STRUCTURE TRStructure,0
  66.     APTR    TR_Text            ;This is the message text, including printf() style formatting if desired.
  67.     APTR    TR_Controls        ;This is the address of the parameter list, if printf() style formatting is used.
  68.     APTR    TR_Window        ;This is an optional (zero if not used) pointer to a window on the screen you 
  69.                     ;would like the requester to show up on.
  70.     APTR    TR_MiddleText        ;If non-zero, this is the text for the gadget in the lower middle (returns 2).
  71.     APTR    TR_PositiveText        ;If non-zero, this is the text for the gadget in the lower left hand corner (returns 1).
  72.     APTR    TR_NegativeText        ;If non-zero, this is the text for the gadget in the lower right (returns 0).
  73.     APTR    TR_Title        ;This is the title for the window.
  74.     WORD    TR_KeyMask        ;This is the qualifier mask for the keyboard shortcuts.
  75.                     ;Use $FFFF to allow any qualifiers (or none).
  76.                     ;Zero means that no keyboard shortcuts are allowed.
  77.     WORD    TR_textcolor        ;Color of the text.  Uses Color 1 if no Color specified.
  78.     WORD    TR_detailcolor        ;Detail and block color, as in a NewWindow structure.  If
  79.     WORD    TR_blockcolor        ;both are left zero, block pen will be set to 1.
  80.     WORD    TR_versionnumber    ;Make SURE this is set to zero.
  81.     LONG    TR_rfu1            ;Make SURE you leave these two zeroed also.
  82.     LONG    TR_rfu2            ;Make SURE you leave these two zeroed also.
  83.     LABEL    TR_SIZEOF
  84.  
  85. ;/* NOTE:
  86. ;
  87. ;    The  control  values  mentioned above are used if you choose to insert
  88. ;printf  style directives in your strings and should contain the address of
  89. ;a list of control parameters, usually on the stack.
  90. ;    */
  91.  
  92.  
  93.  
  94. ;         This structure is for use with the GetLong function.
  95.  
  96. GLNODEFAULTB    EQU    0    ;Set this bit in the flags if you don't want a default
  97.                 ;value to show up in the get long string gadget.  For
  98.                 ;some things this is much better than having a zero
  99.                 ;show up.
  100.  
  101. GLNODEFAULTM    EQU    1<<GLNODEFAULTB
  102.  
  103.  STRUCTURE    GetLongStruct,0
  104.     APTR    gl_titlebar
  105.     LONG    gl_defaultval
  106.     LONG    gl_minlimit
  107.     LONG    gl_maxlimit
  108.     LONG    gl_result
  109.     APTR    gl_window
  110.     WORD    gl_versionnumber;    ;Make SURE this is set to zero.
  111.     LONG    gl_flags;        ;Some, uh flags.  See above for bit definitions.
  112.     LONG    gl_rfu2;        ;Make SURE you leave these two zeroed also.
  113.     LABEl    gl_SIZEOF
  114.  
  115.  
  116.  
  117. ;         Remember,   if  you  don't  want  to  go  through  the  hassle  of
  118. ; initializing a ExtendedColorRequester structure, you can always just call
  119. ; ColorRequester  (as opposed to ExtendedColorRequester).  ColorRequester
  120. ; just  takes  a  single  parameter, in D0, the color that should start out
  121. ; being highlit.  It returns a single value, the color that was selected at
  122. ; the end.
  123.  
  124. ;         This structure is for use with the ExtendedColorRequester (_not_,
  125. ; the ColorRequester) function.
  126.  
  127.  STRUCTURE    ExtendedColorRequesterStruct,0
  128.     LONG    ecr_defcolor        ;The color that is initially highlit.
  129.     APTR    ecr_window        ;The window the 'requester' opens up in (zero normally).
  130.     LONG    ecr_rfu1            ;Who knows what these will be used for,
  131.     LONG    ecr_rfu2            ;but I'm sure we'll think of something.
  132.     LONG    ecr_rfu3            ;Until then, just keep these zeroed.
  133.     LONG    ecr_rfu4            ;Okay?
  134.     LONG    ecr_rfu5
  135.     LABEL    ecr_SIZEOF
  136.  
  137.  
  138.  
  139.     IFND    DSIZE
  140. DSIZE        EQU    130
  141. FCHARS        EQU    30
  142.     ENDC
  143. WILDLENGTH    EQU    30
  144.  
  145. FRQSHOWINFOB    EQU    0    ;Set this in Flags if you want .info files to show.  They default to hidden.
  146. FRQEXTSELECTB    EQU    1    ;Set this in Flags if you want extended select.  Default is not.
  147. FRQCACHINGB    EQU    2    ;Set this in Flags if you want directory caching.  Default is not.
  148. FRQGETFONTSB    EQU    3    ;Set this in Flags if you want a font requester rather than a file requester.
  149. FRQINFOGADGETB    EQU    4    ;Set this in Flags if you want a hide-info files gadget.
  150. FRQHIDEWILDSB    EQU    5    ;Set this in Flags if you DON'T want 'show' and 'hide' string gadgets.
  151. FRQABSOLUTEXYB    EQU    6    ;Use absolute x,y positions rather than centering on mouse.
  152. FRQCACHEPURGEB    EQU    7    ;Purge the cache whenever the directory date stamp changes if this is set.
  153. FRQNOHALFCACHEB    EQU    8    ;Don't cache a directory unless it is completely read in when this is set.
  154. FRQNOSORTB    EQU    9    ;Set this in Flags if you DON'T want sorted directories.
  155. FRQNODRAGB    EQU    10    ;Set this in Flags if you DON'T want a drag bar and depth gadgets.
  156. FRQSAVINGB    EQU    11    ;Set this bit if you are selecting a file to save to.
  157. FRQLOADINGB    EQU    12    ;Set this bit if you are selecting a file(s) to load from.
  158.                 ;These two bits (save and load) aren't currently used for
  159.                 ;anything, but they may be in the future, so you should
  160.                 ;remember to set them.  Also, these bits make it easier if
  161.                 ;somebody wants to customize the file requester for their
  162.                 ;machine.  They can make it behave differently for loading
  163.                 ;vs saving.
  164. FRQDIRONLYB    EQU    13    ;Allow the user to select a directory, rather than a file.
  165.  
  166. FRQSHOWINFOM    EQU    1<<FRQSHOWINFOB
  167. FRQEXTSELECTM    EQU    1<<FRQEXTSELECTB
  168. FRQCACHINGM    EQU    1<<FRQCACHINGB
  169. FRQGETFONTSM    EQU    1<<FRQGETFONTSB
  170. FRQINFOGADGETM    EQU    1<<FRQINFOGADGETB
  171. FRQHIDEWILDSM    EQU    1<<FRQHIDEWILDSB
  172. FRQABSOLUTEXYM    EQU    1<<FRQABSOLUTEXYB
  173. FRQCACHEPURGEM    EQU    1<<FRQCACHEPURGEB
  174. FRQNOHALFCACHEM    EQU    1<<FRQNOHALFCACHEB
  175. FRQNOSORTM    EQU    1<<FRQNOSORTB
  176. FRQNODRAGM    EQU    1<<FRQNODRAGB
  177. FRQSAVINGM    EQU    1<<FRQSAVINGB
  178. FRQLOADINGM    EQU    1<<FRQLOADINGM
  179. FRQDIRONLYM    EQU    1<<FRQDIRONLYB
  180.  
  181.  
  182.  STRUCTURE    ESStructure,0        ;ExtendedSelectStructure
  183.         LONG    es_NextFile    ;This must be the first element!
  184.         WORD    es_NameLength    ;File name length, not including the terminating zero.
  185.         WORD    es_Pad
  186.         APTR    es_Node        ;Node that the user has extended selected.
  187.         LABEL    es_SIZEOF
  188.  
  189. ;         When  using  extended  select,  the  directory pointer is required
  190. ; since  only  the  file  names  are stored in the frq_ExtendedSelect linked
  191. ; list.   When  not  using  extended select, you can either have frq_Dir and
  192. ; frq_File  point  be initialized, or you can have frq_PathName initialized,
  193. ; or  both.   frq_PathName will contain the concatenation of the file and
  194. ; directory chosen.
  195.  
  196.  STRUCTURE    .FileRequester,0
  197.     UWORD    frq_VersionNumber        ;MUST BE ZERO!!!!!!!!!!!!!!!!!!
  198.  
  199.     ;You will probably want to initialize these three variables.
  200.     APTR    frq_Title            ; Hailing text
  201.     APTR    frq_Dir                ; Directory array (must be DSIZE+1 characters long)
  202.     APTR    frq_File            ; Filename array (must be FCHARS+1 characters long)
  203.     ;If you initialize this variable then the file requester will place the complete path name in here on exit.
  204.     APTR    frq_PathName            ; Complete path name array - (must be DSIZE+FCHARS+2 long)
  205.     ;If you want the file requester to pop up on your custom screen, put one of your window pointers here.
  206.     ;Or better yet, you can leave this field zeroed and put a pointer to one of your windows in the
  207.     ;pr_WindowPtr field in your process structure.
  208.     APTR    frq_Window            ; Window requesting or NULL
  209.     ;Initialize these to the number of lines and columns you want to appear in the inner window that
  210.     ;displays the file names.  If you leave these set to zero then default values will be used.
  211.     UWORD    frq_MaxExtendedSelect        ; Zero implies a maximum of 65535, as long as FRQEXTSELECT is set.
  212.     UWORD    frq_numlines            ; Number of lines in file window.
  213.     UWORD    frq_numcolumns            ; Number of columns in file window.
  214.     UWORD    frq_devcolumns            ; Number of columns in device window.
  215.     ULONG    frq_Flags            ; Various - umm - flags.  See above for more info.
  216.     UWORD    frq_dirnamescolor    ;These five colors will all default
  217.     UWORD    frq_filenamescolor    ;to color one if you don't specify
  218.     UWORD    frq_devicenamescolor    ;a color (ie; if you specify color zero).
  219.     UWORD    frq_fontnamescolor    ;If you want color zero to be used, specify
  220.     UWORD    frq_fontsizescolor    ;color 32, or some other too large number
  221.                     ;which mods down to zero.
  222.  
  223.     UWORD    frq_detailcolor        ;If both of these colors are specified as
  224.     UWORD    frq_blockcolor        ;zero then the block pen will be set to one.
  225.  
  226.     UWORD    frq_gadgettextcolor    ;The color for the text of the five boolean gadgets.  Defaults to 1.
  227.     UWORD    frq_textmessagecolor    ;The color for the message at the screen top.  Defaults to 1.
  228.     UWORD    frq_stringnamecolor    ;The color for the words Drawer, File, Hide and Show.  Defaults to 3.
  229.     UWORD    frq_stringgadgetcolor    ;The color for the borders of the string gadgets.  Defaults to 3.
  230.                     ;Unfortunately it is not possible to specify
  231.                     ;the color of the actual text in an Intuition
  232.                     ;string gadget.
  233.     UWORD    frq_boxbordercolor    ;The color for the boxes around the file and directory areas.  Defaults to 3.
  234.     UWORD    frq_gadgetboxcolor    ;The color for the boxes around the five boolean gadgets.  Defaults to 3.
  235.  
  236.     STRUCT    frq_RFU_Stuff,36        ;This area, which is reserved for
  237.                         ;future use, should all be zero.
  238.  
  239.     STRUCT    frq_DirDateStamp,ds_SIZEOF    ; A copy of the cached directories date stamp.
  240.                         ; There should never be any need to change this.
  241.  
  242.     UWORD    frq_WindowLeftEdge;        ;These two fields are only used when the
  243.     UWORD    frq_WindowTopEdge;        ;FRQABSOLUTEXY flag is set.  They specify
  244.                         ;the location of the upper left hand
  245.                         ;corner of the window.
  246.  
  247.     UWORD    frq_FontYSize            ;These fields are used to return the selected
  248.     UWORD    frq_FontStyle            ;font size and style, only applicable when the
  249.                         ;font bit is set.
  250.  
  251.     ;If you set the extended select bit and the user extended selects, the list of filenames will start from here.
  252.     APTR    frq_ExtendedSelect        ; Linked list of ESStructures if more than one filename is chosen.
  253.     ;All of the following variables you shouldn't need to touch.  They contain fields that the file
  254.     ;requester sets and likes to preserve over calls, just to make life easier for the user.
  255.     STRUCT    frq_Hide,WILDLENGTH+2        ; Wildcards for files to hide.
  256.     STRUCT    frq_Show,WILDLENGTH+2        ; Wildcards for files to show.
  257.     WORD    frq_FileBufferPos        ; Cursor's  position  and first
  258.     WORD    frq_FileDispPos            ; displayed character number in
  259.     WORD    frq_DirBufferPos        ; the three string gadgets.  No
  260.     WORD    frq_DirDispPos            ; need  to initialized these if
  261.     WORD    frq_HideBufferPos        ; you don't want to.
  262.     WORD    frq_HideDispPos
  263.     WORD    frq_ShowBufferPos
  264.     WORD    frq_ShowDispPos
  265.  
  266. ;         The  following  fields are PRIVATE!  Don't go messing with them or
  267. ; wierd  things may/will happen.  If this isn't enough of a warning, go read
  268. ; the one in intuition.h, that should scare you off.
  269.  
  270.     APTR    frq_Memory            ; Memory allocated for dir entries.
  271.     APTR    frq_Memory2            ; Used for currently hidden files.
  272.     APTR    frq_Lock            ; Contains lock on directories being read across calls.
  273.     STRUCT    frq_PrivateDirBuffer,DSIZE+2    ; Used for keeping a record of which
  274.                         ; directory we have file names for.
  275.     APTR    frq_FileInfoBlock
  276.     WORD    frq_NumEntries
  277.     WORD    frq_NumHiddenEntries
  278.     WORD    frq_filestartnumber
  279.     WORD    frq_devicestartnumber
  280.     LABEL    frq_SIZEOF
  281.  
  282.  
  283.  
  284.  
  285.  
  286.  
  287.  
  288. ;         This is used with the RealTimeScroll function.
  289.  
  290.  STRUCTURE    ScrollStruct,0
  291.     ULONG    ss_TopEntryNumber    ;This is the ordinal number of the first
  292.                     ;displayed entry.
  293.     ULONG    ss_NumEntries        ;This is the total number of entries in
  294.                     ;the list.
  295.     UWORD    ss_LineSpacing        ;This is how many pixels high each entry is.
  296.     ULONG    ss_NumLines        ;This is how many entries can be displayed simultaneously.
  297.     APTR    ss_PropGadget        ;This is a pointer to the prop gadget being monitored.
  298.  
  299.     APTR    ss_RedrawAll        ;This routine is used to redraw all of the
  300.                     ;entries when the user moves far enough
  301.                     ;that scrolling will take too long.
  302.  
  303.     APTR    ss_ReadMore        ;An optional routine that is called when
  304.                     ;the scroll routine is waiting for movement.
  305.                     ;This allows reading of new data while real
  306.                     ;time scrolling.
  307.     APTR    ss_ScrollAndDraw    ;This routine is called when the data needs
  308.                     ;to be scrolled and updated.  This routine is
  309.                     ;passed four long parameters (on the stack and
  310.                     ;in D0-D3) which are, respectively:
  311.                     ;D0 - entry number of first line to be drawn.
  312.                     ;D1 - pixel offset to draw first line at.
  313.                     ;D2 - amount to scroll before doing any drawing.
  314.                     ;D3 - number of lines of data to draw.
  315.     WORD    versionnumber        ;Make SURE this is set to zero.
  316.     LONG    rfu1            ;Make SURE you leave these two zeroed also.
  317.     LONG    rfu2            ;Make SURE you leave these two zeroed also.
  318.     LABEL    ss_SIZEOF
  319.  
  320.  
  321.  
  322.  
  323.  
  324.  STRUCTURE    Arrows,0
  325.     STRUCT    ArrowUp,20
  326.     STRUCT    ArrowDown,20
  327.     STRUCT    ArrowLeft,18
  328.     STRUCT    ArrowRight,18
  329.     STRUCT    Letter_R,20
  330.     STRUCT    Letter_G,20
  331.     STRUCT    Letter_B,20
  332.     STRUCT    Letter_H,20
  333.     STRUCT    Letter_S,20
  334.     STRUCT    Letter_V,20
  335.     LABEL    chipstuff_SIZEOF
  336.  
  337. ; These are the positions relative to the rl_Images pointer.
  338. ;ie
  339. ;    MOVE.L    rl_Images(A6),A0
  340. ;    ADD.L    #ArrowLeft,A0        ;A0 now points at the left arrow.
  341.  
  342.  
  343.  STRUCTURE    ReqLib,LIB_SIZE
  344.     APTR    rl_SysLib
  345.     APTR    rl_DosLib        ;These must be kept in the same order,
  346.     APTR    rl_IntuiLib        ;the library expunge code depends on it.
  347.     APTR    rl_GfxLib        ;
  348.     APTR    rl_SegList
  349.     APTR    rl_Images        ;pointer to the arrow images.
  350.     BYTE    rl_Flags
  351.     BYTE    rl_Pad
  352.     APTR    rl_ConsoleDev        ;for RawKeyToAscii
  353.     APTR    rl_ConsoleHandle    ;so we can close the device later
  354.     LABEL    MyLib_Sizeof
  355.  
  356.  
  357.  
  358.  
  359.  
  360.  
  361.     LIBINIT
  362.     LIBDEF    _LVOCenter
  363.  
  364.     LIBDEF    _LVOSetSize
  365.     LIBDEF    _LVOSetLocation
  366.     LIBDEF    _LVOReadLocation
  367.  
  368.     LIBDEF    _LVOFormat
  369.  
  370.     LIBDEF    _LVOFakeFunction1    ;Old function.  Don't use.
  371.     LIBDEF    _LVOFakeFunction2    ;Old function.  Don't use.
  372.  
  373.     LIBDEF    _LVOFakeFunction3    ;Old function.  Don't use.
  374.     LIBDEF    _LVOFakeFunction4    ;Old function.  Don't use.
  375.  
  376.     LIBDEF    _LVOFileRequester
  377.  
  378.     LIBDEF    _LVOColorRequester
  379.  
  380.     LIBDEF    _LVODrawBox
  381.  
  382.     LIBDEF    _LVOMakeButton
  383.     LIBDEF    _LVOMakeScrollBar
  384.  
  385.     LIBDEF    _LVOPurgeFiles
  386.  
  387.     LIBDEF    _LVOGetFontHeightAndWidth
  388.  
  389.     LIBDEF    _LVOMakeGadget
  390.     LIBDEF    _LVOMakeString
  391.     LIBDEF    _LVOMakeProp
  392.  
  393.     LIBDEF    _LVOLinkGadget
  394.     LIBDEF    _LVOLinkStringGadget
  395.     LIBDEF    _LVOLinkPropGadget
  396.  
  397.     LIBDEF    _LVOGetString
  398.  
  399.     LIBDEF    _LVORealTimeScroll
  400.  
  401.     LIBDEF    _LVOTextRequest
  402.  
  403.     LIBDEF    _LVOGetLong
  404.  
  405.     LIBDEF    _LVORawKeyToAscii
  406.  
  407.     LIBDEF    _LVOExtendedColorRequester
  408.  
  409.  
  410.  
  411. REQNAME    MACRO
  412.     DC.B    'req.library',0
  413.     ENDM
  414.  
  415. ; This macro will open the RequesterLibrary for you. At the end, A6 will
  416. ;contain the library and D0/A0 will be correct. (What dos passed you)
  417.  
  418. OpenReq    MACRO
  419.     BRA.S    opnrq
  420.  
  421. dname    DC.B    'dos.library',0
  422. rlibmsg    DC.B    'You need V1+ of '
  423. ReqName    REQNAME
  424.     DC.B    10,13,0
  425. ;;;rliblng    EQU    *-rlibmsg
  426. rliblng    EQU    30
  427.     DS.W    0
  428.     EVEN
  429.  
  430. opnrq:
  431.     MOVEM.L    d0/a0,-(sp)
  432.     MOVE.L    4,A6
  433.     LEA.L    ReqName,a1
  434.     MOVEQ.L    #ReqVersion,d0
  435.     SYS    OpenLibrary
  436.     TST.L    d0
  437.     BNE.S    itsokay
  438.     LEA    dname,A1
  439.     SYS    OpenLibrary
  440.     TST.L    D0
  441.     BEQ.S    1$
  442.     MOVE.L    D0,A6
  443.     SYS    Output
  444.     MOVE.L    d0,d1
  445.     BEQ.S    1$            ;No output. Phooey.
  446.     MOVE.L    #rlibmsg,d2        ;Tell user he needs to find library.
  447.     MOVE.L    #rliblng,D3
  448.     SYS    Write
  449. 1$:    ADDQ    #8,sp
  450.     RTS
  451.  
  452. itsokay:
  453.     MOVE.L    D0,A6
  454.     MOVEM.L    (SP)+,D0/A0
  455.     ENDM
  456.  
  457.  
  458.  
  459.     ENDC
  460.